home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / ASM / XXX.ASM < prev   
Encoding:
Assembly Source File  |  2000-09-26  |  2.1 KB  |  125 lines
  1. cmd   equ 8192
  2. arg1  equ cmd+00
  3. arg2  equ cmd+02
  4. arg3  equ cmd+04
  5.  
  6. Start:
  7.  mov ah,1
  8.  mov al,29
  9.  int 0b
  10.  mov janus_ofs,di
  11.  cmp di,-1
  12.  jne install
  13.  jmp near ende
  14.  
  15. install:
  16.  mov dx,offset str1
  17.  mov ah,9
  18.  int 21h
  19.  
  20.  mov es,0d400
  21.  mov di,janus_ofs
  22.  mov es:w[di+arg1],100
  23.  mov es:w[di+arg2],0
  24.  call near call_and_wait
  25.  
  26.  mov es,0d400
  27.  mov di,janus_ofs
  28.  mov si,offset boot_sek
  29.  mov cx,255
  30.  rep movsw
  31.  mov di,janus_ofs
  32.  mov es:w[di+arg1],1
  33.  mov es:w[di+arg2],1
  34.  mov es:w[di+arg3],0
  35.  call near call_and_wait
  36.  
  37.  mov di,janus_ofs
  38.  mov es,0d400
  39.  mov al,0FBh
  40.  stosb
  41.  mov al,0FFh
  42.  stosb
  43.  mov cx,1535
  44.  xor ax,ax
  45.  rep stosw
  46.  mov di,janus_ofs
  47.  mov es,0d400
  48.  mov es:w[di+arg1],1
  49.  mov es:w[di+arg2],6
  50.  mov es:w[di+arg3],1
  51.  call near call_and_wait
  52.  
  53.  mov di,janus_ofs
  54.  mov es,0d400
  55.  mov si,offset vol_name
  56.  mov cx,6
  57.  rep movsw
  58.  mov cx,1786
  59.  xor ax,ax
  60.  rep stosw
  61.  mov di,janus_ofs
  62.  mov es:w[di+arg1],1
  63.  mov es:w[di+arg2],7
  64.  mov es:w[di+arg3],7
  65.  call near call_and_wait
  66.  
  67.  mov di,janus_ofs
  68.  mov es,0d400
  69.  mov es:w[di+arg1],3
  70.  call near call_and_wait
  71.  
  72.  mov dx,offset fertig
  73.  mov ah,9
  74.  int 21h
  75.  
  76. ende:
  77.  ret
  78.  
  79.  
  80. call_and_wait  proc near
  81.  push ds
  82.  push es
  83.  mov ah,7
  84.  mov al,29
  85.  int 0b
  86.  mov ah,8
  87.  mov al,29
  88.  int 0b
  89.  pop es
  90.  pop ds
  91.  ret
  92. call_and_wait  endp
  93.  
  94.  
  95. janus_ofs   dw (?)
  96. str1        db "ATUtilities Transfer   Medium-Installation V1.0",13,10
  97.             db "-----------------------------------------------",13,10
  98.             db "Medium wird installiert. Bitte warten.",13,10,"$"
  99. vol_name    db "AMIGA-DISK0",8
  100. fertig      db "Medium konnte erfolgreich installiert werden.",13,10,10
  101.         db "Technische Informationen:",13,10
  102.             db "  Kapazit„t          = 880 KBytes",13,10
  103.             db "  Sektoren           = 1760",13,10
  104.         db "  Spuren             = 80",13,10
  105.             db "  Sektoren/Spur      = 11",13,10
  106.         db "  Medium-Bezeichnung = AMIGA-DISK0",13,10,10,"$"
  107.  
  108. boot_sek:
  109.  db 3 dup (0)
  110.  db "-TD- 1.0"
  111. bpb:
  112.  dw 512
  113.  db 1
  114.  dw 1
  115.  db 1
  116.  dw 112
  117.  dw 1760
  118.  db 0FB
  119.  dw 6
  120.  
  121.  dw 11
  122.  dw 2
  123.  dw 1
  124.  db 482 dup (0)
  125.